home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / dir / megad31b.lha / rexx / DLPrint.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-30  |  327b  |  19 lines
  1. /* Automate printing labels for each disk inserted into drive DF0: */
  2.  
  3. address REXX
  4.  
  5. options results
  6.  
  7. address MEGAD
  8. dbug
  9.  
  10. do forever
  11.     diskin
  12.     if result == "ABORT" then leave
  13.     "mark df0:"
  14.     selectall
  15.     NextItem Name /* will test for at lease one item on the disk to print label for */
  16.     if result ~= "" then label
  17.     freeVolumes
  18. end
  19.